home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 25 / 025.d81 / variable saver (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  72 lines
  1. 5 printchr$(142)"[147]you cannot return to loadstar from this"
  2. 6 print"program unless you press q now.  press c"
  3. 7 print"to continue installing variable saver."
  4. 8 gett$:ift$<>"c"andt$<>"q"then8
  5. 9 if t$="q"thenload"hello connect",8
  6. 10 print "[147]poking-";
  7. 20 p=49152 :rem $c000
  8. 30 read a$:ifa$="end"then95
  9. 40 l=asc(mid$(a$,2,1))
  10. 50 h=asc(mid$(a$,1,1))
  11. 51 th=th+h:tl=tl+l
  12. 60 l=l-48:ifl>9thenl=l-7
  13. 70 h=h-48:ifh>9thenh=h-7
  14. 75 b=h*16+l:ifb<0orb>255thenprint"error in line";int((p-49152)/8)+100:end
  15. 80 print""p;
  16. 90 poke p,b:p=p+1:goto30
  17. 95 ifth=24106 and tl=23153 then print"data ok":stop
  18. 96 print"error in data ":stop
  19. 100 data 18,a5,14,69,34,85,77,a5
  20. 110 data 15,69,00,85,78,a9,ea,85
  21. 120 data 73,85,74,85,75,a9,4c,85
  22. 130 data 76,60,00,00,00,00,00,00
  23. 140 data 00,00,00,00,00,00,00,00
  24. 150 data 00,a2,05,bd,a2,e3,95,73
  25. 160 data ca,10,f8,60,e6,7a,d0,02
  26. 170 data e6,7b,a5,9d,d0,0e,4c,79
  27. 180 data 00,ad,24,c0,f0,f8,20,ed
  28. 190 data c0,4c,3e,c0,a5,7a,d0,ee
  29. 200 data 20,79,00,c9,52,d0,08,a9
  30. 210 data 00,8d,24,c0,4c,3e,c0,c9
  31. 220 data 89,d0,07,a9,00,85,9d,4c
  32. 230 data 57,c0,c9,30,30,d3,c9,3a
  33. 240 data 10,cf,98,48,8a,48,ad,24
  34. 250 data c0,f0,03,20,ed,c0,ee,24
  35. 260 data c0,a2,07,b5,2d,9d,1c,c0
  36. 270 data ca,10,f8,a5,31,85,22,a5
  37. 280 data 32,85,23,a5,33,85,24,a5
  38. 290 data 34,85,25,20,da,c0,a9,00
  39. 300 data 8d,27,c0,8d,28,c0,a0,00
  40. 310 data b1,22,91,24,20,d0,c0,38
  41. 320 data a5,22,e5,2d,a5,23,e5,2e
  42. 330 data b0,ee,a5,24,18,69,01,8d
  43. 340 data 25,c0,a5,25,69,00,8d,26
  44. 350 data c0,68,aa,68,a8,4c,3e,c0
  45. 360 data c6,22,a5,22,c9,ff,d0,02
  46. 370 data c6,23,c6,24,a5,24,c9,ff
  47. 380 data d0,02,c6,25,ee,27,c0,d0
  48. 390 data 03,ee,28,c0,60,a5,2d,85
  49. 400 data 22,a5,2e,85,23,ad,25,c0
  50. 410 data 85,24,ad,26,c0,85,25,98
  51. 420 data 48,8a,48,a0,00,b1,24,91
  52. 430 data 22,e6,22,d0,02,e6,23,e6
  53. 440 data 24,d0,02,e6,25,ce,27,c0
  54. 450 data d0,eb,ad,28,c0,f0,05,ce
  55. 460 data 28,c0,10,e1,a9,00,8d,24
  56. 470 data c0,ad,22,c0,85,33,ad,23
  57. 480 data c0,85,34,38,a5,2d,ed,1c
  58. 490 data c0,8d,1a,c0,a5,2e,ed,1d
  59. 500 data c0,8d,1b,c0,90,26,18,ad
  60. 510 data 1e,c0,6d,1a,c0,85,2f,ad
  61. 520 data 1f,c0,6d,1b,c0,85,30,ad
  62. 530 data 20,c0,6d,1a,c0,85,31,ad
  63. 540 data 21,c0,6d,1b,c0,85,32,68
  64. 550 data aa,68,a8,60,38,ad,1c,c0
  65. 560 data e5,2d,8d,1a,c0,ad,1d,c0
  66. 570 data e5,2e,8d,1b,c0,38,ad,1e
  67. 580 data c0,ed,1a,c0,85,2f,ad,1f
  68. 590 data c0,ed,1b,c0,85,30,ad,20
  69. 600 data c0,ed,1a,c0,85,31,ad,21
  70. 610 data c0,ed,1b,c0,85,32,4c,67
  71. 620 data c1,end
  72.